Real Girls - Strip Poker/Real Girls Strip POker (Windows 95 CD-ROM).iso/_SETUP.1/mui1.dxr/00001.ls

Text File | 1998-07-30 | 603 b | 16 lines

on muinewGame
  global alertResult
  set alertObj to new(xtra("MUI"))
  if the machineType = 256 then
    set alertInitList to [#buttons: #YesNo, #default: 2, #icon: #question, #title: "RealGirls", #message: "Are you sure you want to end current game?", #movable: 0]
  else
    set alertInitList to [#buttons: #OkCancel, #default: 2, #icon: #question, #title: "RealGirls", #message: "Are you sure you want to end current game?", #movable: 0]
  end if
  if objectp(alertObj) then
    set alertResult to alert(alertObj, alertInitList)
    tell the stage
      checkAlertResult()
    end tell
  end if
end